home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PCONFRE2.ARJ / BIRDZOOM.LSP < prev    next >
Text File  |  1990-02-28  |  460b  |  15 lines
  1. ;SPECIFY ZOOM WINDOW IN BIRDS-EYE VIEWPORT THAT HAS EFFECT IN CURRENT ;VIEWPORT
  2. ;CADALYST MAY 1989 PAGE 75
  3. (DEFUN C:ZWAV (/ CE CVP P1)
  4. (SETQ CE (GETVAR "CMDECHO")
  5. CVP (GETVAR "CVPORT"))
  6. (SETVAR "CMDECHO" 0)
  7. (INITGET 1)
  8. (SETQ P1 (GETPOINT "\nSELECT WINDOW TO ZOOM IN ANY VIEWPORT:"))
  9. (COMMAND "VIEW""WINDOW""$ZWAV" P1 PAUSE)
  10. (SETVAR "CVPORT" CVP)
  11. (COMMAND "VIEW" "RESTORE" "$ZWAV")
  12. (COMMAND "VIEW" "DELETE" "$ZWAV")
  13. (SETVAR "CMDECHO" CE)
  14. (PRIN1)
  15. )